home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mc174v10.zip / R-PCMAIL.MRG < prev    next >
Text File  |  1992-10-20  |  1KB  |  39 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * MAIL174 (c) 1992 by Richie Molinelli
  5. * RBBS (c) 1986,1992 D. Thomas Mack
  6. * ------------[ Created 10-19-1992 23:12:23 ]------------
  7. * REPLACING old line(s) by new
  8. 1895 IF TurboLogon THEN _
  9.         RETURN
  10. * ------[ first line different ]------
  11.      IF ZDoMailCheck THEN _                                          ' MAIL174
  12.         GOTO 1896                                                    ' MAIL174
  13.      ZOutTxt$ = "Check mail in " + ZConfName$ + " ([Y],N)"
  14.      GOSUB 12999
  15.      IF ZNo THEN _
  16.         SkipMain = ZTrue : _
  17.         RETURN
  18. * INSERTING new line(s)
  19. 1896 ZUserIn$(0) = LEFT$("NEW ",-4*LogonMailNew)                     ' MAIL174
  20. 1900 GOSUB 5344
  21.      IF ZPrivateDoor THEN _
  22.         ActionFlag = ZTrue
  23.      ZPrevBase$ = ZActiveMessageFile$
  24.      ShowActive = ZFalse
  25.      IF NOT ActionFlag THEN _
  26.         CALL QuickTPut ("Checking messages in " + ConfFileName$,0) : _
  27.         ShowActive = ZTrue _
  28.      ELSE CALL QuickTPut ("Loading messages",0)
  29.      WasA1$ = ""
  30.      MsgCt = 0
  31.      MsgsFromUser = ZFalse
  32.      ActiveMessages = 0
  33.      MailReported = ActionFlag
  34.      FirstOld = ZTrue
  35.      GOSUB 23000
  36.      MsgRec = FirstMsgRecord
  37.      MaxMsgs = VAL(MID$(ZMsgRec$,89,7))
  38.      NumDots = 0
  39.